unit libEntry_CustomD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, libMaintenance_CustomD, DB, ADODB, FireDAC.Stan.Intf,
  FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
  FireDAC.Stan.Async, FireDAC.DApt,
  FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf;

type
  TdmEntry_Custom = class(TdmMaintenance_Custom)
    qryDetails: TFDQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure qryDetailsAfterInsert(DataSet: TDataSet);
  end;

implementation

uses
  libParamsU, MainModule;


{$R *.dfm}

{------------------------------------------------------------------------------}
procedure TdmEntry_Custom.DataModuleCreate(Sender: TObject);
begin
  inherited;
  doAddSaveList(qryDetails);
end;

{------------------------------------------------------------------------------}
procedure TdmEntry_Custom.qryDetailsAfterInsert(DataSet: TDataSet);
begin
  inherited;
  DataSet[fldKeyFieldName] := qryMaster[fldKeyFieldName];
end;

end.
